home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / SPLOT.BIN / SPLOT.CX (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.6 KB  |  283 lines
  1. 10 REM GBASIC.BOOT
  2. 15 ON -1*(PEEK(832)=120) GOTO 100
  3. 20 IF F=0 THEN F=1:LOAD "GBASIC.$C400",8,1
  4. 30 IF F=1 THEN F=2:LOAD "GBASIC.$033C",8,1
  5. 40 IF F=2 THEN F=3:LOAD "GBPRINT2",8,1
  6. 50 POKE 56,125:CLR:SYS 893
  7. 60 FOR X=832 TO 880:READ Y:(null) X,Y:NEXT
  8. 61 DATA 120, 169, 52, 133, 1, 169, 224, 141, 91, 3
  9. 62 DATA 169, 128, 141, 94, 3, 160, 32, 162, 0, 142
  10. 63 DATA 90, 3, 142, 93, 3, 189, 0, 224, 157, 0
  11. 64 DATA 96, 232, 208, 247, 238, 91, 3, 238, 94, 3
  12. 65 DATA 136, 208, 238, 169, 55, 133, 1, 88, 96
  13. 100 REM STOCK PLOTTER
  14. 110 REM BY BOB HUFFMAN
  15. 200 GOTO 1500
  16. 1000 REM READ DIRECTORY
  17. 1010 OPEN 1,8,0,"$0":(null)781,1:SYS 65478:GETA$,B$:Q$=CHR$(34)
  18. 1020 GETA$,B$,A$,B$:C=0
  19. 1030 (null)A$<>""THENC=ASC(A$)
  20. 1040 (null)B$<>""THENC=C+ASC(B$)*256
  21. 1050 PRINTMID$(STR$(C),2);TAB(3);
  22. 1060 GETB$:S=ST:(null)S<>0THEN 1150
  23. 1070 (null)B$<>Q$THEN1060
  24. 1080 GETB$:(null)B$<>Q$THENPRINTB$;:GOTO1080
  25. 1090 GETB$:(null)B$=" "THEN1090
  26. 1100 PRINTTAB(19);:C$=""
  27. 1110 C$=C$+B$:GETB$:(null)B$<>""THEN1110
  28. 1120 PRINTLEFT$(C$,3)
  29. 1130 (null)PEEK(198)<>0THEN(null)198,0:WAIT198,15:(null)198,0
  30. 1140 (null)S=0THEN1020
  31. 1150 PRINT" BLOCKS FREE"
  32. 1160 GET#1,G$:CLOSE1
  33. 1170 GOSUB10800:GOTO13000
  34. 1500 REM SET UP STRINGS, DIMS, ETC
  35. 1510 SZ$(0)="[211]MALL":SZ$(1)="[204]ARGE"
  36. 1520 DN$(0)="[211]INGLE":DN$(1)="[196]OUBLE"
  37. 1530 IM$(0)="[206]ORMAL ":IM$(1)="[210]EVERSE"
  38. 1540 OP$(0)="[206]O":OP$(1)="[217]ES"
  39. 1560 DF$="STOCKDATA":REM DEFAULT FILE NAME
  40. 1570 DIM D$(300),C(300),MO$(12):N=0
  41. 1580 OPEN 15,8,15
  42. 1590 FOR J=0 TO 12:READ MO$(J):NEXT
  43. 1592 DATA "[196]EC","[202]AN","[198]EB","[205]AR","[193]PR","[205]AY","[202]UN","[202]UL","[193]UG","[211]EP","[207]CT"
  44. 1594 DATA "[206]OV","[196]EC"
  45. 1600 REM INTRO SCREEN
  46. 1605 (null) 53281,0:(null) 53280,0:PRINT CHR$(14)
  47. 1610 (null) 0,0:(null):(null):(null) 5
  48. 1620 (null) 0,0 TO 319,0 TO 319,199 TO 0,199 TO 0,0
  49. 1630 (null) 3:(null) 20,160,"[211]TOCK [208]LOT"
  50. 1635 (null) 3:(null) 20,150,"[214]ERSION 1.1"
  51. 1637 (null) 3:(null) 20,140,"[205]ARCH 26, 1987"
  52. 1640 (null) 13:(null) 159,99
  53. 1645 (null) -5,50 TO -5,-5 TO 50,-5
  54. 1650 (null) 5,0 TO 5,30:(null) 5,15 TO 7,15
  55. 1660 (null) 10,5 TO 10,40:(null) 10,30 TO 12,30
  56. 1670 (null) 15,10TO 15,35:(null) 15,20 TO 17,20
  57. 1680 (null) 20, 5TO 20,30:(null) 20,15 TO 22,15
  58. 1690 (null) 25,10TO 25,35:(null) 25,20 TO 27,20
  59. 1700 (null) 30,15TO 30,40:(null) 30,25 TO 32,25
  60. 1710 (null) 0,0:(null)  8:(null) 200,40,"BY"
  61. 1720 (null) 7:(null) 200,30,"[194]OB [200]UFFMAN"
  62. 1800 GOSUB 10800:(null)
  63. 2000 (null) 53280,0:(null) 53281,0:PRINT"[147]";
  64. 2010 PRINT"[153][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  65. 2020 PRINT"[221]  [211]TOCK [208]LOT [205]AIN [205]ENU   [221]"
  66. 2030 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  67. 2040 PRINT"[193]. [199]ENERAL [201]NSTRUCTIONS"
  68. 2050 PRINT"[194]. [208]ROGRAM [201]NFORMATION"
  69. 2060 PRINT"[195]. [196]ISK [195]OMMANDS
  70. 2070 [153]"STR$. ASCILE VALDITOR
  71. 2080 PRINT"[197]. [196]RAW [211]TOCK [195]HART
  72. 2090 [153]"ASC. CHR$O (null)O (null)OST CHR$RAPH (null)ENU"
  73. 2180 [153]"CHR$. VALXIT":[153][163]3);"-</>-"
  74. 2190 [141] 10800:[161]G$
  75. 2200 J[178][198](G$)[171]64:[219]J[179]1 [176] J[177]7 [167] 2190
  76. 2210 [145] J [137] 2240,2230,13000,11000,3000,20000
  77. 2220 [160]15:[128]
  78. 2230 F$[178]"SPLOT.INFO":[141]10500:[137]2000
  79. 2240 F$[178]"SPLOT.INST":[141]10500:[137]2000
  80. 2250 :
  81. 3000 [143] PLOT GRAPH
  82. 3010 :
  83. 3020 [153]"RIGHT$NPUT FILE NAME"[170][199](13)[170]"OR RETURN FOR ";
  84. 3030 F$[178]"":[153] [199](34)[170]DF$[170][199](34):[133] F$:[219][195](F$)[178]0[167] F$[178]DF$
  85. 3040 N[178]0:[159] 2,8,2,F$[170]",S,R"
  86. 3042 [141] 10000
  87. 3044 [132]2,TL$,PT$,PB$,VT$,BS$,MA$,H$
  88. 3046 [153]""TL$""
  89. 3048 PT[178][197](PT$):PB[178][197](PB$):VT[178][197](VT$):BS[178][197](BS$):MA[178][197](MA$)
  90. 3049 :
  91. 3050 [143] PUT OVERRIDES HERE
  92. 3051 :
  93. 3052 :
  94. 3053 :
  95. 3056 [153]"(null)AXIMUM PRICE = ";[163]20)PT
  96. 3057 [153]"(null)IN VALUE = ";[163]20)PB
  97. 3058 [153]"(null)AXIMUM VOLUME = ";[163]20)VT
  98. 3059 [153]"PEEKAR SPACING =";[163]20)BS
  99. 3060 [153]"(null)OVING AVERAGE =";[163]20)MA;""
  100. 3070 [129] S[178]0 [164] 1:[132]2,A$:S[178]ST:N[178]N[170]1:D$(N)[178]A$
  101. 3080 [153]A$:[130]
  102. 3090 [160]2
  103. 3110 [210] 0,0:[204]:[207]:[208] 13:[212]
  104. 3120 X[178]180[171]4[172]([195](TL$))
  105. 3130 [218] X,199,TL$
  106. 3140 [218] 0,199,"(null)RICE"
  107. 3150 [211] 40,199 [164] 40,12 [164] 319,12
  108. 3180 DS[178]128[173](PT[171]PB):L[178]52:DV[178]VT[173]26.7
  109. 3190 SP[178]1:[139] (PT[171]PB)[177]9 [167] SP[178]2
  110. 3200 [139] (PT[171]PB)[177]19 [167] SP[178]5
  111. 3210 [139] (PT[171]PB)[177]49 [167] SP[178]10
  112. 3220 [139] (PT[171]PB)[177]99 [167] SP[178]20
  113. 3230 [129] P[178]PB [164] PT [169] SP
  114. 3240 [129] X[178]40 [164] 319 [169] 5: [211] X,L:[130]
  115. 3250 T$[178][196](P):[139] [195](T$)[179]3 [167] T$[178]" "[170]T$
  116. 3260 T$[178]"$"[170][201](T$,[195](T$)[171]1)
  117. 3270 X[178]8:[139] PT[178][177]100 [167] X[178]4
  118. 3280 [218] X,L[170]4,T$
  119. 3290 L[178]L[170](DS[172]SP):[130]
  120. 3300 [218] 0,8,"(null)ONTH"
  121. 3320 V$[178][201]([196](VT[173]2),[195]([196](VT[173]2))[171]1)
  122. 3330 X[178]4:[139]VT[178][177]15000 [167] X[178]0:[139][195](V$)[179]5 [167] V$[178]" "[170]V$
  123. 3340 [218] X,27,V$
  124. 3350 V$[178][201]([196](VT),[195]([196](VT))[171]1)
  125. 3360 [218] X,42,V$
  126. 3370 [218] 4,17,"(null)OL."
  127. 3410 LM[178][181]((280[171]BS)[173]BS)[171]1
  128. 3420 [139] [195](D$(N))[178]0 [167] N[178]N[171]1
  129. 3430 DC[178]0:X[178]40:XL[178]40:MP[178]0:MT[178]0:[129] J[178]1 [164] N
  130. 3440 CL[178][197]([202](D$(J),26,6))
  131. 3450 [139] N[171]J[177]LM [167] 3700
  132. 3460 DA[178][197]([202](D$(J),4,3))
  133. 3470 VO[178][197]([202](D$(J),7,7))
  134. 3480 HI[178][197]([202](D$(J),14,6))
  135. 3490 LO[178][197]([202](D$(J),20,6))
  136. 3500 M[178] [197]([202](D$(J),2,2))
  137. 3510 HI[178][181](HI)[170](HI[171][181](HI))[173].8
  138. 3520 LO[178][181](LO)[170](LO[171][181](LO))[173].8
  139. 3530 CL[178][181](CL)[170](CL[171][181](CL))[173].8
  140. 3540 X[178]X[170]BS
  141. 3550 Y[178]52[170]((CL[171]PB)[172]DS)
  142. 3560 [219]BS[177]1[167] [211] X[170]1,Y[170]1 [164] X[170]1,Y[171]1
  143. 3570 YH[178]52 [170]((HI[171]PB)[172]DS)
  144. 3580 YL[178]52 [170]((LO[171]PB)[172]DS)
  145. 3590 [211] X,YH [164] X,YL
  146. 3600 Y[178]12[170](VO[173]DV): [211] X,12 [164] X,Y
  147. 3610 [219] MP[178]0 [167] 3690
  148. 3620 [219] M[178]MP [167] 3690
  149. 3630 TX[178]((X[171]XL)[173]2)[170]XL[171]12:M$[178]MO$(M[171]1)
  150. 3640 [219](X[171]XL)[179]24 [167] TX[178]TX[170]8:M$[178][200](M$,1)
  151. 3650 [218] TX,8,M$
  152. 3660 XL[178]X
  153. 3670 [211] X,12 [164] X,9
  154. 3680 [129] Y[178]52 [164] 180 [169] 5: [211] X,Y:[130]
  155. 3690 MP[178]M:[219]BS[179]2[167]3760
  156. 3700 [139] MA[178]0 [167] 3760
  157. 3710 MT[178]MT[170]CL:C(J)[178]CL:[139] J[179]MA [167] 3760
  158. 3720 Y[178]52[170]((MT[173]MA)[171]PB)[172]DS:[219]J[178]MA [167] 3750
  159. 3730 [219] N[171]J[177]LM [167] 3750
  160. 3740 [211] X[171]BS,PY [164] X,Y
  161. 3750 MT[178]MT[171]C(J[171]MA[170]1):PM[178]MV:PY[178]Y
  162. 3760 [130]:X[178]XL[170]20[172]BS:[219]X[177]319[167]X[178]319
  163. 3770 [219] X[171]XL[179]10 [167] 3840
  164. 3780 M[178]M[170]1:[219]M[178]14[167]M[178]2
  165. 3790 TX[178]((X[171]XL)[173]2)[170]XL[171]12:M$[178]MO$(M[171]1)
  166. 3800 [139](X[171]XL)[179]24 [167] TX[178]TX[170]8:M$[178][200](M$,1)
  167. 3810 [218] TX,8,M$
  168. 3820 [211] X,12 [164] X,9
  169. 3830 [129] Y[178]52 [164] 180 [169] 5: [211] X,Y:[130]
  170. 3840 [139]MA[178]0[167]20000
  171. 3845 X[178]280:[139]MA[178][177]100 [167] X[178]272
  172. 3850 [139] BS[179]2 [167] 20000
  173. 3860 [213]:[129] Y[178]53 [164] 60:[211] X,Y [164] 319,Y:[130]:[212]
  174. 3865 MA$[178][196](MA)
  175. 3870 [218] X,60,"(null)ATN="[170][201](MA$,[195](MA$)[171]1)
  176. 4000 [141] 10800:[206]:[137] 20000
  177. 10000 [132]15,A,B$:[219]A[178]0[167] [142]
  178. 10010 [153]"STR$OS ERROR";A;B$
  179. 10020 [160]2:[141] 10800:[137] 2000
  180. 10500 [159] 2,8,2,F$[170]",S,R":[141] 10000:[153]"LOAD";
  181. 10510 [129] I[178]0 [164] 1
  182. 10520 [132]2,G$:I[178]ST:[219] G$[178]".P" [167] [141] 10800:[153]"LOAD";:[137]10520
  183. 10530 [153]G$:[130]
  184. 10540 [160] 2:[141] 10800:[142]
  185. 10550 [221] 198,0:[146]198,15:[142]
  186. 10800 [221] 198,0:[146]198,15:[142]
  187. 11000 N[178]1:[143] FILE EDITOR
  188. 11010 [153]"LOADSYSASCILE VALDITOR"
  189. 11020 [153]"(null)CROLL THROUGH FILE WITH"
  190. 11030 [153]"LENURSOR UP/DOWN KEY"
  191. 11040 [153]"F1 TO LOAD FILE"
  192. 11050 [153]"F2 TO SAVE FILE"
  193. 11060 [153]"F3 TO INSERT A LINE"
  194. 11070 [153]"F4 TO DELETE A LINE"
  195. 11080 [153]"F5 TO REPLACE A LINE"
  196. 11090 [153]"F6 TO PRINT THE FILE"
  197. 11100 [153]"F7 RETURN TO THIS SCREEN"
  198. 11110 [153]"F8 RETURN TO (null)AIN (null)ENU"
  199. 11120 [137] 11180
  200. 11130 F$[178]"":[133]"(null)HAT IS THE DATA FILE NAME";F$:[219] [195](F$)[178]0[167] 11010
  201. 11140 [159] 2,8,2,F$[170]",S,R":[141]10000:N[178]1
  202. 11150 [132]2,D$(N):S[178]ST
  203. 11160 [219] S[178]0 [167] N[178]N[170]1:[137]11150
  204. 11170 NM[178]N:[160]2:N[178]1
  205. 11180 [153] "[";[201]([196](N),[195]([196](N))[171]1);"] ";D$(N)
  206. 11190 [141] 10800:[161]G$:[219]G$[178]""[175] N[179]NM [167]N[178]N[170]1:[137]11180
  207. 11200 [219]G$[178]"ON"[175] N[177]1 [167]N[178]N[171]1:[137]11180
  208. 11210 SE[178][198](G$):[219]SE[179]133[176]SE[177]140[167]11190
  209. 11220 SE[178]SE[171]132:[145] SE [137] 11130,11320,11230,11010,11270,11360,11260,2000
  210. 11230 N$[178]" ["[170][201]([196](N),[195]([196](N))[171]1)[170]"]"
  211. 11240 [153]"VALNTER REPLACE LINE"[170]N$:T$[178]"":[133]T$:[219]T$[179][177]""[167]D$(N)[178]T$
  212. 11250 [137] 11180
  213. 11260 [159] 4,4,7:[129]N[178]1 [164] NM:[152]4,D$(N):[130]:[160]4:N[178]1:[137]11010
  214. 11270 [153]"(null)AVE FILE WITH SAME NAME?":[141]10800:[161]G$:[219]G$[178]"Y"[167]11290
  215. 11280 [133]"(null)HAT FILE NAME";F$:[137]11300
  216. 11290 [152]15,"S0:"[170]F$
  217. 11300 [159]2,8,2,F$[170]",S,W":[141]10000:[129]N[178]1[164]NM:[152]2,[199](34)[170]D$(N)[170][199](34)
  218. 11310 [130]:[160]2:N[178]1:[137] 11010
  219. 11320 [129]J[178]NM[170]1[164]N[170]1 [169][171]1:D$(J)[178]D$(J[171]1):[130]:NM[178]NM[170]1:D$(N)[178]""
  220. 11330 N$[178]" ["[170][201]([196](N),[195]([196](N))[171]1)[170]"]"
  221. 11340 [153]"VALNTER INSERT LINE"[170]N$:T$[178]"":[133]T$:[219]T$[179][177]""[167]D$(N)[178]T$
  222. 11350 [137] 11180
  223. 11360 [129] J[178]N[170]1 [164] NM:D$(J[171]1)[178]D$(J):[130]:D$(NM)[178]"":NM[178]NM[171]1:[137] 11180
  224. 11370 :
  225. 13000 [153]"LOADPRINTSTR$ISK LENOMMANDS"
  226. 13010 [153]"ATN. STR$IRECTORY"
  227. 13020 [153]"PEEK. PEEKACK (null)P ATN ASCILE"
  228. 13030 [153]"LEN. (null)ENAME ATN ASCILE"
  229. 13040 [153]"STR$. (null)CRATCH ATN ASCILE"
  230. 13050 [153]"VAL. (null)EAD VALRROR LENHANNEL"
  231. 13060 [153]"ASC. (null)ETURN TO (null)AIN (null)ENU"
  232. 13070 [141] 10800:[161]G$:J[178][198](G$)[171]64
  233. 13080 [219] J[179]1[176]J[177]6 [167] [153]"":[137]13010
  234. 13090 [145] J [137] 1000,13100,13160,13220,13150,2000
  235. 13100 F$[178]"":[133] "(null)AME OF FILE TO BACK UP";F$
  236. 13110 [219] [195](F$)[178]0 [167] 13000
  237. 13120 G$[178]"":[133] "(null)AME OF BACK UP FILE";G$
  238. 13130 [219] [195](G$)[178]0 [167] 13000
  239. 13140 [152]15,"C0:"[170]G$[170]"=0:"[170]F$
  240. 13150 [132]15,A,B$:[153]:[153]A,B$:[141] 10800:[137] 13000
  241. 13160 F$[178]"":[133] "(null)AME OF FILE TO RENAME";F$
  242. 13170 [219] [195](F$)[178]0 [167] 13000
  243. 13180 G$[178]"":[133] "(null)EW NAME OF FILE";G$
  244. 13190 [219] [195](G$)[178]0 [167] 13000
  245. 13200 [152]15,"R0:"[170]G$[170]"=0:"[170]F$
  246. 13210 [137] 13150
  247. 13220 F$[178]"":[133] "(null)AME OF FILE TO DEFSCRATCHPRINT";F$:[153]
  248. 13230 [219] [195](F$)[178]0 [167] 13000
  249. 13240 [153]"STR$ELETE ";F$;:[153]" - ARE YOU SURE?":[141]10800:[161]G$:[143]G$<>"Y"THEN
  250. 13250 [152]15,"S0:"[170]F$
  251. 13260 [137] 13150
  252. 20000 [206]:[153]"LOADDEF(null)OST CHR$RAPHING (null)ENU
  253. 20010 PRINT"[208]RESS NUMBER KEYS TO TOGGLE OPTIONS
  254. 20020 [153]"1WAIT (null)IZE - ";SZ$([194](32003))
  255. 20030 [153]"2WAIT STR$ENSITY - ";DN$([194](32005))
  256. 20040 [153]"3WAIT RIGHT$MAGE - ";IM$([194](32004))
  257. 20050 [153]"ATN. (null)IEW CHR$RAPH
  258. 20060 PRINT"[194]. [208]RINT [199]RAPH
  259. 20070 [153]"LEN. (null)AVE (null)CREEN ATNS STR$OODLE
  260. 20080 PRINT"[196]. [210]ETURN TO [205]AIN [205]ENU
  261. 20090 [141]10800:[161]G$:S[178][198](G$)[171]61
  262. 20100 [219] S[179][171]9 [175] S[177][171]13 [167] S[178]S[170]13
  263. 20110 [219] S[179]1 [176] S[177]7 [167] 20090
  264. 20120 [145] S [137] 20140,20150,20160,20170,20190,30000,2000
  265. 20130 [137] 20000
  266. 20140 [221] 32003,[168] [194](32003) [175] 1:[153]"":[137] 20010
  267. 20150 [221] 32005,[168] [194](32005) [175] 1:[153]"":[137] 20010
  268. 20160 [221] 32004,[168] [194](32004) [175] 1:[153]"":[137] 20010
  269. 20170 [204]:[141]10800:[206]
  270. 20180 [137] 20090
  271. 20190 [159] 4,4,7:[152]4,[199](27)"@"[199](10)[199](10);:[160]4
  272. 20250 [204]:[221] 53272,8:[158] 32000:[221] 53272,23:[206]:[137] 20090
  273. 20270 [143]
  274. 21000 [143]
  275. 30000 [133]"(null)AME OF STR$OODLE FILE";F$
  276. 30010 F$[178]"DD"[170]F$:[204]
  277. 30090 [158]832:[160]2:[159]2,8,2,F$[170]",P,W"
  278. 30110 [152]2,[199](0);[199](92);
  279. 30140 [158] 32544
  280. 30150 [160]2
  281. 30160 [206]:[137] 20000
  282. 0 
  283.